home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / prog / mod2tutb.zip / LOOPIF.MOD < prev    next >
Text File  |  1989-01-18  |  1KB  |  46 lines
  1.                                          (* Chapter 4 - Program 3 *)
  2. MODULE LoopIf;
  3.  
  4. FROM InOut IMPORT WriteString, WriteInt, WriteLn;
  5.  
  6. VAR Index, Count, Dog : INTEGER;
  7.  
  8. BEGIN
  9.    FOR Index := 1 TO 10 DO
  10.       WriteString("Major loop");
  11.       WriteInt(Index,3);
  12.       IF Index < 7 THEN
  13.          FOR Count := 15 TO (15 + Index) DO
  14.             WriteString(' XXX');
  15.          END;
  16.          WriteLn;
  17.       ELSE
  18.          WriteString(' How many dogs?');
  19.          FOR Dog := 1 TO 10 - Index DO
  20.             WriteString("  too many");
  21.          END;
  22.          WriteLn;
  23.       END;  (* ELSE part of IF statement *)
  24.  
  25.    END (* Major FOR loop *)
  26. END LoopIf.
  27.  
  28.  
  29.  
  30.  
  31. (* Result of execution
  32.  
  33. Major loop  1 XXX XXX
  34. Major loop  2 XXX XXX XXX
  35. Major loop  3 XXX XXX XXX XXX
  36. Major loop  4 XXX XXX XXX XXX XXX
  37. Major loop  5 XXX XXX XXX XXX XXX XXX
  38. Major loop  6 XXX XXX XXX XXX XXX XXX XXX
  39. Major loop  7 How many dogs?  too many  too many  too many
  40. Major loop  8 How many dogs?  too many  too many
  41. Major loop  9 How many dogs?  too many
  42. Major loop 10 How many dogs?
  43.  
  44. *)
  45.  
  46.